home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Sound / DelfMPEG / rexx / pplay < prev    next >
Text File  |  2002-11-17  |  582b  |  29 lines
  1. /** DelfMPEG ARexx test **/
  2.  
  3. /* usage: rx pplay <file> */
  4.  
  5. PARSE ARG file
  6. ADDRESS DELFMPEG
  7. OPTIONS RESULTS
  8.  
  9. if file=='' then do
  10.     say 'missing parameter <file>'
  11.     return 20
  12. end
  13.  
  14. STOP
  15. PAUSE
  16. PLAY file
  17.  
  18. GETSTATUS
  19. if ~(result==2) then do
  20.     if result<10 then say 'there is a problem, player is not in pause mode'
  21.     else do
  22.         text='<no text>'
  23.         if result==10 then text='initDelfina failed'
  24.         if result==20 then text='file not found'
  25.         if result==30 then text='file not recognized as MPEG1 audio'
  26.         say 'Error #' || result || ': ' || text
  27.     end
  28. end
  29.